An interactive map and chloreopath of oil spills in California in 2008.
In this report, I am analyzing the documented oil spills that occurred in California in 2008. I created an interactive map that illustrates each individual oil spill in every county throughout the state. A chloreopath shows the density of the number of oil spills in each county, which highlights Los Angeles County as having the greatest number of oil spills in 2008. Data for CA oil spills is from CAOpenData, Department of Fish and Wildlife.
#read in the data
ca_counties <- read_sf(here("_posts", "2021-02-22-interactive_map", "ca_counties", "CA_Counties_TIGER2016.shp"))
# Wrangling
ca_subset <- ca_counties %>%
select(NAME, ALAND) %>% #keeping only county name and land area, but since it is a simple feature object, it keeps the spatial information (column geometry)
rename(county_name = NAME, land_area = ALAND)
# Add the oil spill data
oil_spill <-read_sf(here("_posts", "2021-02-22-interactive_map", "Oil_Spill_Incident_Tracking_%5Bds394%5D-shp", "Oil_Spill_Incident_Tracking_%5Bds394%5D.shp"))